Книги-online
Ch 15.htm
назад
|
содержание
|
вперед
Добавление методов в
класс
Добавление метода в класс
осуществляется гораздо проще. Фактически необходимо просто объявить функцию
или процедуру типа public в классе. Практически метод добавляется с помощью
диалогового окна
Add Procedure
(Добавить процедуру), которое показано
на рис. 15.3. При этом переключатель
Type
(Тип) необходимо установить
в положение
Sub
(Процедура) или
Function
(Функция), а переключатель
Score
(Область видимости) в положение
Public.
Замечание
Напомним, что диалоговое
окно
Add Procedure
вызывается командой
Add Procedure
меню
Tools
(Сервис) при открытом редакторе кода. При помощи
Add Procedure
в текст модуля добавляется только шаблон метода, который затем необходимо
программировать вручную.
В качестве примера добавим
в класс с is Department метод SayAboutDep, возвращающий информацию о подразделении.
Для этого, используя диалоговое окно
Add Procedure,
введем в модуль класса
следующий код:
Public Function SayAboutDep()
As String
' Вывод общей информации
об объекте
SayAboutDep = sDepName
+ ". Руководитель: " + sDepManager
End Function
Для проверки работы метода
в событие click кнопки Commandl приложения Myciass вместо строки:
MsgBox sSayAboutObj,,
"Сведения об объекте"
введите следующую строку;
MsgBox objDep.SayAboutDep(),,
"Сведения об объекте"
Теперь при нажатии на
кнопку
Сведения об объекте
метод SayAboutDep возвращает общую информацию
об объекте.
назад
|
содержание
|
вперед
